home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / vpi1_330.zip / MEMODEMO.PRG < prev    next >
Text File  |  1992-01-09  |  1KB  |  49 lines
  1. **********************************************************************
  2. **  MEMODEMO.PRG
  3. **  (C) Copyright 1991-1992, Sub Rosa Publishing Inc.
  4. **  A VP-Info demonstration program provided to VP-Info users.
  5. **  This program may be copied freely. If it is used in commercial code,
  6. **  please credit the source, Sub Rosa Publishing Inc.
  7. **
  8. **  MEMODEMO demonstrates the use of MEMO fields.
  9. **
  10. **  MEMODEMO uses the files MEMODEMO.DBF and MEMODEMO.DBT
  11. **
  12. **  Bernie Melman and Sid Bursten
  13. ***********************************************************************
  14. ON escape
  15.    WINDOW
  16.    CLS
  17.    Chain samples
  18. ENDON
  19. USE memodemo ; will open data file and memo file
  20. WINDOW
  21. CLS
  22. DO WHILE t ; set up infinate loop
  23.    WINDOW 1,2,9,78
  24.    CLS
  25.    TEXT
  26.         NOTE NUMBER: #NOTE_NUM
  27.    NOTE DESCRIPTION: #NOTE_NOTE
  28.    press a key:
  29.               - for previous memo
  30.               + for next memo
  31.               q or ESC to exit
  32.    ENDTEXT
  33.    WINDOW 12,2,23,78
  34.    TEXT m.note ; displays the current memo
  35.    dummy=inkey()
  36.    DO CASE
  37.    CASE dummy=asc('-')
  38.       IF #>1   
  39.          SKIP -1
  40.       ENDIF
  41.    CASE dummy=asc('+')
  42.       SKIP
  43.    CASE dummy=asc('q') .or. dummy=asc('Q')
  44.       WINDOW
  45.       CLS
  46.       chain samples
  47.    ENDCASE
  48. ENDDO
  49.